> x <- read.csv("C:/series.csv");
> x
      t        x
1     1 65.55633
2     2 66.33428
3     3 56.89123
4     4 60.45655
5     5 62.24995
6     6 65.59874
7     7 55.75942
8     8 63.73271
9     9 53.74740
10   10 64.19222
11   11 50.51927
12   12 52.88638
13   13 49.84732
14   14 60.12037
15   15 52.89482
16   16 49.26401
17   17 62.19538
18   18 62.60900
19   19 69.98977
20   20 59.79565
21   21 68.59210
22   22 68.96371
23   23 56.29230
24   24 61.23658
25   25 53.04189
26   26 57.04782
27   27 56.41789
28   28 52.22143
29   29 56.44763
30   30 50.11227
31   31 44.81618
32   32 47.27362
33   33 46.00767
34   34 55.28627
35   35 54.21252
36   36 53.39356
37   37 51.87741
38   38 58.58585
39   39 55.83836
40   40 59.97398
41   41 52.88870
42   42 56.30417
43   43 58.34304
44   44 62.07662
45   45 61.75565
46   46 60.96920
47   47 55.34241
48   48 61.58941
49   49 50.11745
50   50 56.06155
51   51 48.48594
52   52 46.32246
53   53 44.26722
54   54 50.43265
55   55 37.69526
56   56 48.51532
57   57 51.12641
58   58 50.68684
59   59 52.49395
60   60 62.55505
61   61 57.95911
62   62 57.14970
63   63 59.53184
64   64 57.73742
65   65 54.11003
66   66 54.90288
67   67 42.06515
68   68 46.51294
69   69 52.94171
70   70 51.94782
71   71 53.87596
72   72 46.85199
73   73 39.20154
74   74 43.85991
75   75 42.84316
76   76 43.84783
77   77 46.57057
78   78 47.91992
79   79 35.19498
80   80 36.84937
81   81 45.36315
82   82 41.73674
83   83 46.95905
84   84 49.59913
85   85 47.78682
86   86 52.01700
87   87 54.04703
88   88 51.03169
89   89 48.18764
90   90 49.69694
91   91 59.38668
92   92 47.43559
93   93 46.73103
94   94 32.41168
95   95 39.34429
96   96 38.14213
97   97 32.86406
98   98 42.47471
99   99 34.02176
100 100 35.34438
101 101 37.94136
102 102 47.00695
103 103 42.41713
104 104 47.35556
105 105 44.39424
106 106 44.28451
107 107 49.63459
108 108 46.65584
109 109 47.03222
110 110 36.72852
111 111 45.14184
112 112 36.02437
113 113 38.48052
114 114 47.53369
115 115 34.24953
116 116 44.45390
117 117 42.36969
118 118 39.60822
119 119 27.94853
120 120 33.42860
121 121 24.36534
122 122 35.10605
123 123 35.19739
124 124 41.04484
125 125 34.18805
126 126 40.58067
127 127 45.11429
128 128 37.67108
129 129 40.19661
130 130 51.12835
131 131 49.74912
132 132 39.59640
133 133 43.99968
134 134 50.92791
135 135 38.37232
136 136 41.35266
137 137 43.63881
138 138 26.83077
139 139 38.03627
140 140 35.37199
141 141 44.63763
142 142 33.08877
143 143 45.85579
144 144 38.97669
145 145 33.37468
146 146 34.53911
147 147 41.98995
148 148 43.59433
149 149 52.52560
150 150 45.40047
151 151 41.99806
152 152 55.35603
153 153 40.47322
154 154 46.74427
155 155 46.73270
156 156 36.33370
157 157 34.14326
158 158 45.77237
159 159 34.74561
160 160 38.34219
161 161 39.85322
162 162 41.79568
163 163 38.60322
164 164 38.26260
165 165 37.59398
166 166 34.23320
167 167 38.16334
168 168 44.92075
169 169 40.38955
170 170 54.93330
171 171 41.92259
172 172 43.41481
173 173 45.93614
174 174 45.72452
175 175 56.64119
176 176 47.88446
177 177 48.01383
178 178 46.78643
179 179 36.52171
180 180 50.72824
181 181 45.85272
182 182 56.97621
183 183 33.90990
184 184 46.43483
185 185 44.83509
186 186 40.37852
187 187 46.87884
188 188 38.94807
189 189 49.43274
190 190 51.23885
191 191 46.52496
192 192 48.39133
193 193 52.42661
194 194 52.00657
195 195 52.57723
196 196 55.86142
197 197 48.95761
198 198 51.64355
199 199 60.63150
200 200 56.79141
201 201 54.75242
202 202 43.24030
203 203 46.53680
204 204 55.80466
205 205 54.14315
206 206 46.75348
207 207 48.55339
208 208 42.75288
209 209 47.60012
210 210 50.33962
211 211 51.80482
212 212 58.28574
213 213 56.01995
214 214 66.01225
215 215 50.76072
216 216 55.37278
217 217 58.71504
218 218 66.91816
219 219 67.60373
220 220 55.87279
221 221 59.40312
222 222 59.86131
223 223 49.02833
224 224 54.73405
225 225 61.08376
226 226 50.83098
227 227 50.05176
228 228 49.11628
229 229 50.70839
230 230 61.74056
231 231 59.27038
232 232 54.40633
233 233 57.27644
234 234 60.90294
235 235 60.74755
236 236 52.23963
237 237 64.48641
238 238 59.02684
239 239 62.80874
240 240 65.00407
241 241 66.09186
242 242 52.48080
243 243 60.34124
244 244 55.15959
245 245 61.34742
246 246 54.05382
247 247 57.48554
248 248 51.38928
249 249 50.44195
250 250 53.08013
251 251 58.28840
252 252 60.60776
253 253 63.08268
254 254 52.35503
255 255 65.70779
256 256 68.52797
257 257 64.56501
258 258 64.99488
259 259 69.28853
260 260 66.74918
> fftx <- fft(x$x)
> plot(Mod(fftx), type="l")
> x.ma3 <- filter(x$x, c(1/3,1/3,1/3))
> plot(x.ma3, type="l")
> save.image("C:\\Documents and Settings\\redes\\Escritorio\\otraClaseRisk")
> 
> lines(x.ma3, col="red")
> plot(Mod(fftx), type="l")
> plot(x$x, type="l")
> lines(x.ma3, col="red")
> x.ma21 <- filter(x$x, rep(1/21, 21))
> lines(x.ma21, col="green")
> 
